Option Public
Option Declare

Sub Initialize()
	'/**
	' * 表单打开保存代理
	' * 
	' * @param 参数名 参数说明
	' * @return 返回类型 返回说明
	' * @depends
	' * @see
	' * @error
	' * @version 1.0
	' * @author
	' */
try:
	'set up error handler
	On Error GoTo catch
	
	'	重要环境、对象、变量定义
	Dim session As NotesSession
	Dim note As NotesDocument
	Dim strQuery_string As String		'代理的url参数
	
	
	'	重要环境、对象、变量赋值
	Set session = New NotesSession
	Set note = session.documentcontext
	Set dbCurrent = note.parentdatabase
	
	'	获取当前主文档中域
	strQuery_string = note.query_string_decoded(0)
	
	GoTo finally
catch:
	'log error
	'Msgbox Erl & ":" & Error
	MsgBox LSI_Info(2) & " called by " & LSI_Info(12) & "(" & LSI_Info(430) & "): " & Error$ & " - Line: " & CStr(Erl)
	'resume to the final thing
	Resume finally
	
finally:
	'do the final thing
	
End Sub